
Uses
    Crt;
    
Type
    {$I TipoDeDatos.pas}
    
    {$I ManejoDeArchivos.pas}

Procedure CargarRepuestos();
Var 
    NuevoRepuesto : Repuesto;
    Archivo : FileRepuestos;
    
Begin

    OpenFileRepuestos(Archivo);

    NuevoRepuesto.Codigo                := 200;
    NuevoRepuesto.Descripcion           := 'Manguera de plastico 01';
    NuevoRepuesto.Cantidad              := 2;
    Write(Archivo,NuevoRepuesto);


    NuevoRepuesto.Codigo        :=  302; 	
    NuevoRepuesto.Descripcion   := 'Manguera de plastico 02';
    NuevoRepuesto.Cantidad      :=	60;
    Write(Archivo,NuevoRepuesto);


    NuevoRepuesto.Codigo        := 566;	
    NuevoRepuesto.Descripcion   := 'Motor bobinado simple 1,4 HP';
    NuevoRepuesto.Cantidad      :=	0;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 700;	
    NuevoRepuesto.Descripcion   := 'Cable mallado doble 0,1';	
    NuevoRepuesto.Cantidad      := 15;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 2040;	
    NuevoRepuesto.Descripcion   := 'Resistencia 0,5 ohm';	
    NuevoRepuesto.Cantidad      := 10;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 2041;	
    NuevoRepuesto.Descripcion   := 'Resistencia 0,6 ohm';	
    NuevoRepuesto.Cantidad      := 2;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 3042;	
    NuevoRepuesto.Descripcion   := 'Carcasa de licuadora liliana';	
    NuevoRepuesto.Cantidad      := 2;
    Write(Archivo,NuevoRepuesto);


    NuevoRepuesto.Codigo        := 24000;	
    NuevoRepuesto.Descripcion   := 'Led de color rojo 0,5';
    NuevoRepuesto.Cantidad      :=	2;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 24400;
    NuevoRepuesto.Descripcion   := 'Cargador Mulinex inalambrica';
    NuevoRepuesto.Cantidad      := 1;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 32000;	
    NuevoRepuesto.Descripcion   := 'Pantalla de Plasma 7 pulgadas';	
    NuevoRepuesto.Cantidad      := 0;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 37010;	
    NuevoRepuesto.Descripcion   := 'Filtro de aspiradora ultracom';	
    NuevoRepuesto.Cantidad      := 150;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 50120;
    NuevoRepuesto.Descripcion   := 'Bolita de Heladera Siam';	
    NuevoRepuesto.Cantidad      := 2;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 52999;	
    NuevoRepuesto.Descripcion   := 'Rueda de lavarropas 0,5';	
    NuevoRepuesto.Cantidad      := 50;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 55677;
    NuevoRepuesto.Descripcion   := 'Antena Televisor philips a3a10';	
    NuevoRepuesto.Cantidad      := 50;
    Write(Archivo,NuevoRepuesto);

    NuevoRepuesto.Codigo        := 55678;	
    NuevoRepuesto.Descripcion   := 'Cable de plancha aurora';	
    NuevoRepuesto.Cantidad  := 100;
    Write(Archivo,NuevoRepuesto);
    
    Close(Archivo);

End;

Procedure MostrarPedidosCargados();
Var
    Archivo : FileRepuestos;
    UnRepuesto : Repuesto;
    I: Integer;

Begin
    
    OpenFileRepuestos(Archivo);
    
    For I := 0 To FileSize(Archivo)-1 Do
    Begin
        Seek(Archivo,I);
        Read(Archivo,UnRepuesto);
        
        Writeln('---------------------------------');
        Writeln('Codigo :',UnRepuesto.Codigo);
        Writeln('Descripcion :',UnRepuesto.Descripcion);
        Writeln('Cantidad Disponible :',UnRepuesto.Cantidad);
        Writeln('---------------------------------');        

    End;
    
    Close(Archivo);
    
End;

Begin
    {CargarRepuestos();}
    ClrScr;
    Writeln('--------Repuesgos cargados----------');
    MostrarPedidosCargados();
    Readln;
End.
